﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<% 
dim bnid,nid,namer,zf,xingbie,nianlin1,meili,tili,renqi,monery,monery1,mark,touxian,vip1,grade,time,name,user,sidt
       		if sid<>"Null" then
                namer=session("username")
                Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select [id],[sidd],[zf],[grade],[name],[user],[xingbie],[mobile],[vip],[lurr],[touxian],[xunzhan],[time],[meili],[money],[money1],[tili],[renqi] from [qingtian_user] where name= '"&namer&"'"
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then
                if Request.QueryString("act")=1 and rs("vip")=1 then rs("lurr")=1
                if Request.QueryString("act")=2 and rs("vip")=1 then rs("lurr")=0
                rs.update
                nid=rs("id")
                sidt=rs("sidd")
                zf=rs("zf")
                grade=rs("grade")
                name=rs("name")
                user=rs("user")
                xingbie=qingtian.utf8(rs("xingbie"))
                meili=rs("meili")
                tili=rs("tili")
                renqi=rs("renqi")
                touxian=rs("touxian")
                xunzhan=rs("xunzhan")
                mobile=rs("mobile")
                time=rs("time")
                monery=qingtian.utf8(rs("money"))
                monery1=qingtian.utf8(rs("money1"))             
                end if
                Rs.close
set rs=nothing 
zft=qingtian.jibie(zf)
select case v
case "0"
we0="<br/>"
hr="------------------<br/>"
%>
<card title="当前状态"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>当前状态</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
qingtian.info
%><%=qingtian.qingsav("351")%>		
<%=dao%><b>我的空间(ID:<%=qingtian.utf8(nid)%>)-<%=qingtian.onlina(nid)%></b><%=we0%><%=hr%>
<%=we%><img src="<%=touxian%>" alt='我的头像' noselect = "true" /><br/>
I D:<%=nid%>
用户名:<%=qingtian.utf8(user)%><br/>
昵称:<%=qingtian.utf8(name)%><br/>
头衔/职务:<%=zft%>(<%=qingtian.vip(nid)%>)<br/>
勋章:<%=xunzhan%><br/>
性别:<%=xingbie%><br/>
手机:<%=mobile%><br/>
积分:<%=zf%><br/>
等级:<%=grade%><br/>
人气:<%=renqi%><br/>
魅力:<%=meili%><br/>
体力:<%=tili%><br/>
财富:<%=qingtian.bi%>(<%=monery%>).<%=qingtian.bit%>(<%=monery1%>)<a href="shangchen.Asp?nid=<%=nid%>&amp;sid=<%=sidd%>">充值</a><br/>
注册时间:<%=time%><br/>
自动登录标识:<%=sidt%><br/><a href="usernew.Asp?urls=mystatus.asp&amp;nid=<%=nid%>&amp;sid=<%=sidd%>&amp;urls=mystatus.asp">重设标识</a><br/>
切换状态:<a href="mystatus.asp?act=1&amp;sid=<%=sidd%>">隐身</a>|<a href="mystatus.asp?act=2&amp;nid=<%=nid%>&amp;sid=<%=sidd%>">在线</a>(<%=zi%>vip会员使用<%=zi0%>)
<%=we0%>
<%=hr%>
<%=qingtian.qingsav("350")%><%=sou%><a href="index.asp?sid=<%=sidd%>">返回我的地盘</a><%=we0%>
<% 
else
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/space.asp?sid="&sidd&"@@urls="&urls

end if

end Function
%>































